home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
BOZOL2.ZIP
/
DATATYPE.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-02-08
|
2KB
|
48 lines
TYPE DBaseHeaderRecord
Ver AS BYTE ' dBASE version
Year AS BYTE ' year
Month AS BYTE ' month
Day AS BYTE ' day of last update
NumberOfRecords AS DWORD ' number of records in this database
offset AS WORD ' length of header
Size AS WORD ' length of record
Blank AS STRING * 20 ' reserved for future use
END TYPE
TYPE DBaseFieldRecord
FieldName AS STRING * 11 ' name of the field in ASCII
FieldType AS STRING * 1 ' Type CNLM or D
FDA AS DWORD ' field data address - we don't need this
FLen AS BYTE ' Length, we'll need this!
DecC AS BYTE ' number of decimals in numeric field
Blank9 AS STRING * 14 ' reserved for future use
END TYPE
TYPE DBStructureRecord
FieldName AS STRING * 11
FieldType AS STRING * 1
FieldLength AS BYTE
FieldOffset AS INTEGER
FieldDecimals AS BYTE
END TYPE
TYPE DBaseEditFormat
FieldName AS STRING * 11
FieldType AS STRING * 1
FieldLength AS BYTE
FieldRow AS INTEGER
FieldCol AS INTEGER
FieldFG AS INTEGER
FieldBG AS INTEGER
END TYPE
DIM DBH AS DBaseHeaderRecord
DIM DBF AS DBaseFieldRecord
DIM DBS(256) AS DBStructureRecord
DIM DBE(256) AS DBaseEditFormat
SHARED DBH, DBF, DBS(), dBaseOpen%, RecNum???, NumberOfFields?, RecordBlock$
SHARED DBE(), NumberOfRecords???, Index$, IndexField$, IndexField?
SHARED Bt.Update.Always%, Act.Keys$